Option Explicit
Sub B_Sample032()
    Dim myWb As Workbook
    Columns(1).Clear				'xs檺M
    Range("A1").Value = "|W"		'D]w
    For Each myWb In Workbooks
        Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = myWb.FullName
    Next
    Set myWb = Nothing				'
End Sub
